s-gikan2.maizuru-ct.ac.jp/s-gikan2.maizuru-ct.ac.jp.zip/s-gikan2.maizuru-ct.ac.jp/pub/old/ncvc351d_install.exe/{app}/scripts/remove_comment.pl

Perl Script | 2004-04-02 | 237b | 15 lines

#! /usr/bin/perl

#  NCâfü[â^é╠()é╠ìsé≡ìφÅ£é╖éΘâXâNâèâvâg  #

$pre_file= $ARGV[0];
$out_file= $ARGV[1];
open(IN,$pre_file);
open(OUT,">$out_file");

while(<IN>){
    if(!/^N?[0-9\s]*\(/){ print OUT; }
}
close(OUT);
close(IN);